Agree with Carl not to do it that way but I think his approach could be improved by using "[[" rather than "$". Try:
myVars<-list()
x="Variable"; y="Weight"; z="Height"
myVars[[ paste(x,y,"_one", sep="")]] <- 1:10
myVars[[ paste(x,z,"_one", sep="")]] <- 11:20
If you really still want to construct names I'll compose a suitable addition:
x="Variable"; y="Weight"; z="Height"
assign( paste(x,y,"_one", sep=""), 1:10)
assign( paste(x,z,"_one", sep=""), 11:20)
ls(patt="Variable")
[1] "VariableHeight_one" "VariableWeight_one"
Compare the effort (and language circumlocutions) it might take to find the first variable you created using your approach with with how simple it would be to extract the first element from myVars:
eval(parse( text=ls(patt="Variable")[1] ))
# [1] 11 12 13 14 15 16 17 18 19 20
myVars[[1]]
# [1] 1 2 3 4 5 6 7 8 9 10
(Furthermore, it wasn't even the right one.)