<< Graphics`Graphics`;

For[count = 1; c = 0.25, count ≤ 250, 
      PolarPlot[2 + 2  Cos[θ*c], {θ, 0, 2  π},  
        PlotRange -> {{-5, 5}, {-5, 5}}]; count++; 
      c = c + 0.05]