You can use the following.
string <- 'Da Silva UF'
gsub(' \\S*$', '', string)
[1] "Da Silva"
Explanation:
' '
\S* non-whitespace (all but \n, \r, \t, \f, and " ") (0 or more times)
$ before an optional \n, and the end of the string