In that case:
Sub ArrFndRep()
Dim ArrFR As Variant, i As Long
ArrFR = Array("the", "quick", "brown", "fox", "jumped", "over", "lazy", "dog")
If UBound(ArrFR) Mod 2 = 0 Then
  MsgBox "Something's Wrong Genious"
  Exit Sub
End If
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Format = False
  .MatchWholeWord = True
  .MatchCase = False
  .MatchWildcards = False
  .Wrap = wdFindContinue
  For i = 0 To UBound(ArrFR) Step 2
    .Text = ArrFR(i)
    .Replacement.Text = ArrFR(i + 1)
    .Execute Replace:=wdReplaceAll
  Next
End With
End Sub
As for:
find 2 spaces and change to one but if there is 3 spaces it will go down to 2
that's easily handled in a single pass, replacing any sequence of two spaces with a single space.