You would need either to put the phrases in a table or in separate paragraphs then instead of searching for words you would search for the contents of the table cells or the paragraphs e.g.
Code:
For i = 1 To docRef.Paragraphs.Count
Set oPara = docRef.Paragraphs(1).Range
oPara.End = oPara.End - 1
strFind = oPara.Text
'do stuff with opara.text
Next i