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