freqterms <- unlist(freqterms)

freqterms.regex <- paste("(", paste0(freqterms, collapse="|"), ")")

matches <- MyData[grepl(MyData, pattern=freqterms.regex)]