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