The return value of acf is an acf object with an accompanying plot. Plotting can be suppressed, then the acf object subset with your lags of interest and (re)plotted. see below
myacf <- acf(lh, plot = FALSE)
myacf <- myacf[1:10]
plot(myacf)
disclaimer: I have no experience with time series objects. I found most of this info by checking help at ?acf