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