But this save me all Estra each time and I want a continue list without repetitions

But this save me all Estra each time and I want a continue list without repetitions. I mean:

The out of this loop is:

 Estra = {0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
       2,2,2,2,2,2,2,2,2,0,3,3,3,3,3,3,3,3,3,
       3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,0,4,4,
        4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4}

I want to Save this 0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2 and the this 0,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, 3,3,3,3,3,3,3,3,3,3,3,3,3,3 and so on, and finaly have a file .dat:

  Estra = {0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
       2,2,2,2,2,2,2,2,2,0,3,3,3,3,3,3,3,3,3,
       3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,0,4,4,
        4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4}

I have a Do loop then I want to Save data from this loop each x number of iterations. What can I do?

I have a Do loop then I want to Save data from this loop each x number of iterations. My Do is some like:

     Estra = {}; it= 30
     Do[initial = 0; Estra = Append[Estra, initial]; 
           Do[op = 1 + i; Estra = Append[Estra, op], it], {i, 1, 3}]

Then I want to Save each number of iterations, for example each that it = 10; it= 20; it=30. I put that:

      Estra = {}; it= 30
         Do[initial = 0; Estra = Append[Estra, initial]; 
           Do[op = 1 + i; Estra = Append[Estra, op]; If[it = 10; it= 
                   20; it=30, Save["data.dat", Estra]], it], {i, 1, 3}]

But this save me all Estra each time and I want a continue list without repetitions