PolarPlot[Sec[(8*t)/(2*Pi)-Round[(8*t)/(2*Pi)]],{t,0,2*Pi}]