Hver tredje linie

Hej Eksperter.

Jeg har en liste med oplysninger i et ark. Nu kunne jeg godt tænke mig en macro, der sammenkæder disse oplysninger så jeg for én tekststreng for hver 3. linie:

Række 1: Oplysning 1
Række 2: Oplysning 2
Række 3: Oplysning 3
Række 4: Oplysning 4
Række 5: Oplysning 5
Række 6: Oplysning 6
Række 7: Oplysning 7

Som giver 4 tekststrenge:
Række 1: Oplysning 1, Oplysning 2, Oplysning 3
Række 2: Oplysning 4, Oplysning 5, Oplysning 6
Række 3: Oplysning 7

Jeg kan ikke helt greje, hvordan jeg for den til at stoppe efter 3 rækker og starte på en ny tekststreng
Ville jeg have det hele samlet i én tekststreng ville jeg lave en for sætning:

    Lastrow = ActiveSheet.Cells.Find(what:="*", after:=[A1], searchorder:=xlByRows, _
      searchdirection:=xlPrevious).Row

For i = 1 To Lastrow
  Tekststreng = Tekststreng & Cells(i, 1)
Next i

Men hvordan får jeg den næste dimension på?

På forhånd tak